perm filename 6TEST.TMP[CM,DEK] blob
sn#788813 filedate 1985-03-24 generic text, type T, neo UTF8
This is METAFONT, WAITS Version 0.77 (preloaded base=plain 85.3.11) 24 MAR 1985 16:24
**6test
(6TEST.MF[CM,DEK] (CMBASE.MF[CM,DEK]) (CMR10.MF[CM,DEK]) (CMSX10.MF[CM,DEK])
(CMTT10.MF[CM,DEK]) (CMBX10.MF[CM,DEK]) (CMSQI8.MF[CM,DEK]) (CMTI10.MF[CM,DEK])
(TEST.MF[CM,DEK]
The letter A, cmr10 [65]
The letter A, cmsx10 [65]
The letter A, cmtt10 [65]
The letter A, cmbx10 [65]
The letter A, cmssqi8 [65]
The letter A, cmti10 [65]
done with character 65
The letter V, cmr10 [86]
The letter V, cmsx10 [86]
The letter V, cmtt10 [86]
The letter V, cmbx10 [86]
The letter V, cmssqi8 [86]
The letter V, cmti10 [86]
done with character 86
The letter K, cmr10 [75]
The letter K, cmsx10 [75]
The letter K, cmtt10 [75]
The letter K, cmbx10 [75]
The letter K, cmssqi8 [75]
The letter K, cmti10 [75]
done with character 75
The letter W, cmr10
>> false
>> 96.60106
! Not implemented: (boolean)and(known numeric).
<to be read again>
>
chartext->...{z4-z3}...if.notched.and.y45>
notch_height:(x45,notch_hei...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
? iabort
! Inconsistent equation (off by -2).
<to be read again>
;
diag_end->...tever[z(SUFFIX4),z(SUFFIX5)];
(from_x,y_){z(SUFFIX3)-z(SU...
chartext->....{z6-z5}diag_end(5l,6l,6r,7r)
--diag_end(7r,8r,8l,7l){z7-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
The equation I just read contradicts what was said before.
But don't worry; continue and I'll just ignore it.
>> (-to_x+139.06927,-2)
! Not implemented: length(unknown pair).
<to be read again>
*
diag_end->...length(z(SUFFIX4)-(to_x,y_))*
unitvector(z(SUFFIX4)-z(SUF...
chartext->....{z6-z5}diag_end(5l,6l,6r,7r)
--diag_end(7r,8r,8l,7l){z7-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I'm afraid I don't know how to apply that operation to that
particular type. Continue, and I'll simply return the
argument (shown above) as the result of the operation.
>> (-to_x+139.06927,-2)
>> (1,0)
! Not implemented: (unknown pair)*(pair).
<to be read again>
{
diag_end->...ector(z(SUFFIX4)-z(SUFFIX3)){
z(SUFFIX4)-z(SUFFIX3)}...{z...
chartext->....{z6-z5}diag_end(5l,6l,6r,7r)
--diag_end(7r,8r,8l,7l){z7-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I'm afraid I don't know how to apply that operation to that
combination of types. Continue, and I'll return the second
argument (see above) as the result of the operation.
>> to_x
! Undefined x coordinate has been replaced by 0.
<to be read again>
endgroup
chartext->....{z6-z5}diag_end(5l,6l,6r,7r)
--diag_end(7r,8r,8l,7l){z7-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> false
>> 21.0172
! Not implemented: (boolean)and(known numeric).
<to be read again>
<
chartext->...{z7-z8}...if.notched.and.y67<
cap_hair:(x67,cap_hair)+0.5...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I'm afraid I don't know how to apply that operation to that
combination of types. Continue, and I'll return the second
argument (see above) as the result of the operation.
>> false
>> 21.01718
! Not implemented: (boolean)and(known numeric).
<to be read again>
<
chartext->...{z3-z4}...if.notched.and.y23<
cap_hair:(x23,cap_hair)+0.5...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I'm afraid I don't know how to apply that operation to that
combination of types. Continue, and I'll return the second
argument (see above) as the result of the operation.
! Missing `)' has been inserted.
<to be read again>
}
chartext->....{z1-z2}diag_end(2r,1r,1l,2l}
--cycle;if.serifs:numeric.i...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I've gotten to the end of the macro parameter list.
You might want to delete some tokens before continuing.
! Not a cycle.
<to be read again>
}
chartext->....{z1-z2}diag_end(2r,1r,1l,2l}
--cycle;if.serifs:numeric.i...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
That contour should have ended with `..cycle' or `&cycle'.
So I'll not change anything just now.
! Extra tokens will be flushed.
<to be read again>
}
chartext->....{z1-z2}diag_end(2r,1r,1l,2l}
--cycle;if.serifs:numeric.i...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I've just read as much of that statement as I could fathom,
so a semicolon should have been next. It's very puzzling...
but I'll try to get myself back together, by ignoring
everything up to the next `;'. Please insert a semicolon
now in front of anything that you don't want me to delete.
(See Chapter xx of The METAFONTbook for an example.)
>> -x4'l+67.48103
! Unknown relation will be considered false.
<to be read again>
:
chartext->...+0.5u+2≤lft.x4'l-0.75cap_jut:
inner_jut1=0.75cap_jut;else...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
Oh dear. I can't decide if the expression above is positive,
negative, or zero. So this comparison test won't be `true'.
>> -0.5x4'l+19.86562
! Unknown relation will be considered false.
<to be read again>
:
serif->...:=y(SUFFIX2)1;fi.fi.if(EXPR6)<0:
z(SUFFIX2)2+penoffset.downw...
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
Oh dear. I can't decide if the expression above is positive,
negative, or zero. So this comparison test won't be `true'.
>> -0.08333x4'l+104.5084
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
serif->...,0.5[z(SUFFIX2)1,z(SUFFIX2)2] ]{
z(SUFFIX2)1-z(SUFFIX2)2}......
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> -0.5x4'l+16.45479
! Undefined x coordinate has been replaced by 0.
<to be read again>
}
serif->...X2)2] ]{z(SUFFIX2)1-z(SUFFIX2)2}
...{(EXPR6),0}z(SUFFIX2)1--...
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> -0.5x4'l+19.86562
! Undefined x coordinate has been replaced by 0.
<to be read again>
,
serif->...FFIX2)1-z(SUFFIX2)2}...{(EXPR6),
0}z(SUFFIX2)1--z(SUFFIX2)0-...
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> -0.5x4'l+119.46109
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
--->{
curl1}..{curl1}
serif->...X2)2}...{(EXPR6),0}z(SUFFIX2)1--
z(SUFFIX2)0--(x(SUFFIX3),y(...
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> -0.5x4'l+119.46109
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
--->{
curl1}..{curl1}
serif->...R6),0}z(SUFFIX2)1--z(SUFFIX2)0--
(x(SUFFIX3),y(SUFFIX2)0)--z...
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
! Strange path (turning number is zero).
<to be read again>
;
serif->...(SUFFIX2)0)--z(SUFFIX2)3--cycle;
labels((SUFFIX2)1,(SUFFIX2)...
<to be read again>
;
cup_serif->...),(EXPR4),(EXPR5))(SUFFIX8);
serif(SUFFIX3)((SUFFIX0),(S...
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
The path doesn't have a counterclockwise orientation,
so I'll probably have trouble drawing it.
>> -0.5x4'l+119.46109
! Undefined x coordinate has been replaced by 0.
<to be read again>
..
<argument> fill(x.e1,cup_out)..
(x5',cup_in)..(x.f1,cup_out)--cycle
erase->cullit;(TEXT0)
withweight-1;cullit
<to be read again>
;
cup_serif->...x(SUFFIX3)1,cup_out)--cycle;
fi
<to be read again>
;
chartext->...,-inner_jut2,1/2,inner_jut3);
fi.cup_serif(1',2,a,b,1/3,-...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> 0.5x4'l-19.86562
! Unknown relation will be considered false.
<to be read again>
:
serif->...:=y(SUFFIX2)1;fi.fi.if(EXPR6)<0:
z(SUFFIX2)2+penoffset.downw...
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
Oh dear. I can't decide if the expression above is positive,
negative, or zero. So this comparison test won't be `true'.
>> 0.125x4'l+27.39268
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
serif->...,0.5[z(SUFFIX2)1,z(SUFFIX2)2] ]{
z(SUFFIX2)1-z(SUFFIX2)2}......
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> 0.5x4'l-23.27644
! Undefined x coordinate has been replaced by 0.
<to be read again>
}
serif->...X2)2] ]{z(SUFFIX2)1-z(SUFFIX2)2}
...{(EXPR6),0}z(SUFFIX2)1--...
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> 0.5x4'l-19.86562
! Undefined x coordinate has been replaced by 0.
<to be read again>
,
serif->...FFIX2)1-z(SUFFIX2)2}...{(EXPR6),
0}z(SUFFIX2)1--z(SUFFIX2)0-...
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> 0.5x4'l+10.86559
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
--->{
curl1}..{curl1}
serif->...X2)2}...{(EXPR6),0}z(SUFFIX2)1--
z(SUFFIX2)0--(x(SUFFIX3),y(...
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
>> 0.5x4'l+10.86559
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
--->{
curl1}..{curl1}
serif->...R6),0}z(SUFFIX2)1--z(SUFFIX2)0--
(x(SUFFIX3),y(SUFFIX2)0)--z...
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
! Strange path (turning number is zero).
<to be read again>
;
serif->...(SUFFIX2)0)--z(SUFFIX2)3--cycle;
labels((SUFFIX2)1,(SUFFIX2)...
<to be read again>
;
cup_serif->...),(EXPR6),(EXPR7))(SUFFIX8);
if.cup>0:pickup.tiny_pen;nu...
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
The path doesn't have a counterclockwise orientation,
so I'll probably have trouble drawing it.
>> 0.5x4'l+10.86559
! Undefined x coordinate has been replaced by 0.
<to be read again>
{
--->{
curl1}..{curl1}
<argument> ...1',cup_in)..(x.b1,cup_out)--
cycle
erase->cullit;(TEXT0)
withweight-1;cullit
<to be read again>
;
cup_serif->...x(SUFFIX3)1,cup_out)--cycle;
fi
<to be read again>
;
chartext->...3,-outer_jut,1/2,inner_jut1);
cup_serif(8',7,c,d,0.6,-inn...
<for(1)> ..., "&fontname[(EXPR0)];chartext
.echar;fi.fi ENDFOR
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.6,l.48 ...,4,5,6,7,8,23,45,67); endchar;
I need a `known' x value for this part of the path.
The value I found (see above) was no good;
so I'll try to keep going by using zero instead.
[87]
done with character 87
The letter X, cmr10
>> 4
>> "CMR"
! Not implemented: (known numeric)*(string).
<to be read again>
:=
sans_params->...cmbase.fi.fontidentifier:=
"CMSSBX";fontsize#:=10pt#;u...
<scantokens> sans_params
<to be read again>
;
<for(2)> ...)]:scantokens.params[(EXPR0)];
font_setup;currentwindow:=(...
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.7,l.34 ...1,2,3,4,12,13,24,34); endchar;
I'm afraid I don't know how to apply that operation to that
combination of types. Continue, and I'll return the second
argument (see above) as the result of the operation.
>> 10
>> "CMR"
! Not implemented: (known numeric)/(string).
<to be read again>
:=
sans_params->...cmbase.fi.fontidentifier:=
"CMSSBX";fontsize#:=10pt#;u...
<scantokens> sans_params
<to be read again>
;
<for(2)> ...)]:scantokens.params[(EXPR0)];
font_setup;currentwindow:=(...
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.7,l.34 ...1,2,3,4,12,13,24,34); endchar;
I'm afraid I don't know how to apply that operation to that
combination of types. Continue, and I'll return the second
argument (see above) as the result of the operation.
>> "CMR"
! Improper `:=' will be changed to `='.
<recently read> :=
sans_params->...cmbase.fi.fontidentifier:=
"CMSSBX";fontsize#:=10pt#;u...
<scantokens> sans_params
<to be read again>
;
<for(2)> ...)]:scantokens.params[(EXPR0)];
font_setup;currentwindow:=(...
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.7,l.34 ...1,2,3,4,12,13,24,34); endchar;
I didn't find a variable name at the left of the `:=',
so I'm going to pretend that you said `=' instead.
! Inconsistent equation.
<to be read again>
;
sans_params->....fontidentifier:="CMSSBX";
fontsize#:=10pt#;u#:=22/36p...
<scantokens> sans_params
<to be read again>
;
<for(2)> ...)]:scantokens.params[(EXPR0)];
font_setup;currentwindow:=(...
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.7,l.34 ...1,2,3,4,12,13,24,34); endchar;
The equation I just read contradicts what was said before.
But don't worry; continue and I'll just ignore it.
>> xjut
>> "CMSSBX"
! Equation cannot be performed (numeric=string).
<to be read again>
;
sans_params->....fontidentifier:="CMSSBX";
fontsize#:=10pt#;u#:=22/36p...
<scantokens> sans_params
<to be read again>
;
<for(2)> ...)]:scantokens.params[(EXPR0)];
font_setup;currentwindow:=(...
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.7,l.34 ...1,2,3,4,12,13,24,34); endchar;
I'm sorry, but I don't know how to make such things equal.
(See the two expressions just above the error message.)
! Interruption.
sans_params->....fontidentifier:="CMSSBX";
fontsize#:=10pt#;u#:=22/36p...
<scantokens> sans_params
<to be read again>
;
<for(2)> ...)]:scantokens.params[(EXPR0)];
font_setup;currentwindow:=(...
;->...tname[k];chartext.echar;fi.fi.endfor
.pause;
p.7,l.34 ...1,2,3,4,12,13,24,34); endchar;
? x
Output written on 6TEST.GF[CM,DEK] (19 characters, 28144 bytes).